home *** CD-ROM | disk | FTP | other *** search
/ NEC Interchannel CD-ROM Title Guide / CD [TITLEGUIDE].bin / demo / kanji / setup / setup.mst < prev    next >
Encoding:
Text File  |  1995-10-29  |  9.4 KB  |  337 lines
  1. '**************************************************************************
  2. '*                üwè┐ÄÜé╠ÉXé╠âìârâôâtâbâhâfâéö┼üxâZâbâgâAâbâv
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST EXITFAILURE   = 400
  13. CONST EXITSUCCESS   = 700
  14.  
  15. CONST DISPHELP      = 912       ''âfâBâXâvâîâCâhâëâCâoâAâbâvâfü[âgé╠âwâïâv
  16. CONST OLDDISPDRV    = 102       ''î├éóâfâBâXâvâîâCâhâëâCâoé¬î⌐é┬é⌐éΦé▄é╡é╜
  17. CONST WinRest       = 500       ''évéëéÄéäéÅéùéôé╠âèâXâ^ü[âg
  18.  
  19. CONST OldVersion_d    = 1
  20. CONST NewVersion_d    = 2
  21. CONST SameVersion_d   = 3
  22. CONST FileNone_d      = 4
  23.  
  24. CONST MB_ICONSTOP         = MB_ICONHAND
  25.  
  26. ''Bitmap ID
  27. CONST LOGO = 1
  28.  
  29. GLOBAL WINSYSDIR$   '' Windows\system dirctory.
  30. GLOBAL SrcDir$
  31. GLOBAL CUIDLL$
  32. GLOBAL HELPPROC$
  33.  
  34. GLOBAL FileDate$        ''âtâ@âCâïé╠ô·òtüiò╢ÄÜù±üj
  35. GLOBAL FYear%           ''öNüiÉ«Éöüj
  36. GLOBAL FMonth%          ''îÄüiÉ«Éöüj
  37. GLOBAL FDay%            ''ô·üiÉ«Éöüj
  38.  
  39. GLOBAL  disp1%
  40. GLOBAL  disp7%
  41. GLOBAL  RestartWin%
  42.  
  43. DECLARE SUB InstSanrio
  44. DECLARE SUB UpdateDisp
  45.  
  46. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  47. DECLARE FUNCTION MakePath2 (szDir$, szFile$) AS STRING
  48.  
  49. DECLARE FUNCTION ShowWindow LIB "user" (ss%,ss%) AS INTEGER
  50.  
  51. DECLARE FUNCTION CheckVer(SrcPath$) AS INTEGER          ''âtâ@âCâïô·òté╠â`âFâbâN
  52.  
  53. CONST GRPNAME$ = "è┐ÄÜé╠ÉX âfâéö┼"
  54. CONST PROGNAME$ = "è┐ÄÜé╠ÉX âfâéö┼"
  55. CONST EXENAME$ = "KANJI_DM.EXE"
  56.  
  57. ''Dialog list symbol names
  58. GLOBAL CHECKSTIN$
  59. GLOBAL CHECKSTOUT$
  60. GLOBAL DRIVETEXT$
  61. GLOBAL HARDDRIVES$
  62. GLOBAL QTDIRLIST$
  63.  
  64. INIT:
  65.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  66.     SetBitmap CUIDLL$, LOGO
  67.     SetTitle "üwè┐ÄÜé╠ÉXé╠âìârâôâtâbâh âfâéö┼üxü@âZâbâgâAâbâv"
  68.     SetAbout "üwè┐ÄÜé╠ÉXé╠âìârâôâtâbâh âfâéö┼üxü@âZâbâgâAâbâv", "âoü[âWâçâô 1.0J"
  69.     i % = ShowWindow(HwndFrame(),3)
  70.  
  71.     rem **** ò╧ÉöÅëè·ë╗üiâfâBâXâvâîâCâhâëâCâoò╥üj
  72.     disp1% = FileNone_d
  73.     disp7% = FileNone_d
  74.     RestartWin% = 1
  75.  
  76.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  77.     IF szInf$ = "" THEN
  78.     szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  79.     END IF
  80.     ReadInfFile szInf$
  81.  
  82. rem Make sure that we are running on Windows 3.1 or better
  83. rem ------------------------------------------------------
  84.     IF GetWindowsMajorVersion() < 3 THEN
  85.        sz$ = UIStartDlg(CUIDLL$, BADWINDOWS, "FInfo0DlgProc", 0, "")
  86.        UIPop 1
  87.        END
  88.     END IF
  89.  
  90.     IF (GetWindowsMajorVersion() = 3) AND (GetWindowsMinorVersion() < 10) THEN
  91.        sz$ = UIStartDlg(CUIDLL$, BADWINDOWS, "FInfo0DlgProc", 0, "")
  92.        UIPop 1
  93.        END
  94.     END IF
  95.  
  96. WELCOME:
  97.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", 0, "")
  98.     IF sz$ = "CONTINUE" THEN
  99.     UIPop 1
  100.     ELSE
  101.     END
  102.     END IF
  103.  
  104.     WINSYSDIR$ = GetWindowsSysDir()
  105.  
  106. rem *************************************************************************************
  107. rem è┐ÄÜé╠ÉXé╠âìârâôâtâbâhé╠âtâ@âCâïé≡âCâôâXâgü[âïé╖éΘÅΩìç
  108. rem *************************************************************************************
  109. GETDESTPATH:
  110.     SetSymbolValue "EditFocus", "END"
  111. GETPATHL1:
  112.  
  113.     INSTSANRIO
  114.  
  115.     UpdateDisp              ''âfâBâXâvâîâCâhâëâCâoé╠âAâbâvâfü[âg
  116.  
  117. rem *************************************************************************************
  118. rem épétéhés
  119. rem *************************************************************************************
  120.  
  121. QUIT:
  122.     ON ERROR GOTO ERRQUIT
  123.  
  124.     IF ERR = 0 THEN
  125.     dlg% = EXITSUCCESS
  126.     ELSEIF ERR = STFQUIT THEN
  127.     dlg% = EXITQUIT
  128.     ELSE
  129.     dlg% = EXITFAILURE
  130.     END IF
  131. QUITL1:
  132.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  133.     IF sz$ = "REACTIVATE" THEN
  134.     GOTO QUITL1
  135.     END IF
  136.     UIPop 1
  137.  
  138.     IF ( RestartWin% = 0 ) AND (dlg% = EXITSUCCESS) THEN
  139. WinRestart:
  140.         sz$ = UIStartDlg(CUIDLL$, WinRest, "FInfo0DlgProc", 0, "")
  141.         IF sz$ = "CONTINUE" THEN
  142.             UIPop 1
  143.         ELSEIF sz$ = "REACTIVATE" THEN
  144.             GOTO WinRestart
  145.         END IF
  146.  
  147.         i% = ExitExecRestart()
  148.  
  149.         IF( i% = 1 ) OR (i% = 0) THEN
  150.             j% = DoMsgBox("éαéñêΩôxâZâbâgâAâbâvé≡ìsé┴é─é¡é╛é│éóüB", "âGâëü[", MB_OK+MB_TASKMODAL+MB_ICONSTOP)
  151.         END IF
  152.     END IF
  153.  
  154.     END
  155.  
  156. ERRQUIT:
  157.     i% = DoMsgBox("âZâbâgâAâbâvé┼âGâëü[é¬ö¡É╢é╡é▄é╡é╜üB", "âGâëü[", MB_OK+MB_TASKMODAL+MB_ICONSTOP)
  158.     END
  159.  
  160. BADPATH:
  161.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  162.     IF sz$ = "REACTIVATE" THEN
  163.     GOTO BADPATH
  164.     END IF
  165.     UIPop 1
  166.     RETURN
  167.  
  168.  
  169. ASKQUIT:
  170. ASKQUIT1:
  171.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  172.  
  173.     IF sz$ = "EXIT" THEN
  174.     UIPopAll
  175.     ERROR STFQUIT
  176.     ELSEIF sz$ = "REACTIVATE" THEN
  177.     GOTO ASKQUIT1
  178.     ELSE
  179.     UIPop 1
  180.     END IF
  181.     RETURN
  182.  
  183.  
  184.  
  185. rem **
  186. rem ** è┐ÄÜé╠ÉXé╠âìârâôâtâbâhé╠âCâôâXâgü[âï
  187. rem *************************************************************************
  188. SUB INSTSANRIO STATIC
  189. DIM DEST$        '' Default destination directory.
  190.  
  191.     DEST$ = GetSymbolValue("STF_SRCDIR")
  192.  
  193.     CreateProgmanGroup GRPNAME$, "", cmoNone
  194.     ShowProgmanGroup  GRPNAME$, 1, cmoNone
  195.     CreateProgmanItem GRPNAME$, PROGNAME$, DEST$+EXENAME$ , MakePath(DEST$, "KR_DEMO.ICO"), cmoOverwrite
  196.     CreateProgmanItem GRPNAME$, "è┐ÄÜé╠ÉX âfâéö┼ é═é╢é▀é╔", "NOTEPAD.EXE "+MakePath(DEST$,"README.TXT"), "", cmoOverwrite
  197.     CreateProgmanItem GRPNAME$, "è┐ÄÜé╠ÉX âfâéö┼ ìφÅ£",MakePath(DEST$,"DELETE.EXE"),"", cmoOverwrite
  198.  
  199. END SUB
  200.  
  201.  
  202.  
  203. '**
  204. '** Purpose:
  205. '**     Appends a file name to the end of a directory path,
  206. '**     inserting a backslash character as needed.
  207. '** Arguments:
  208. '**     szDir$  - full directory path (with optional ending "\")
  209. '**     szFile$ - filename to append to directory
  210. '** Returns:
  211. '**     Resulting fully qualified path name.
  212. '*************************************************************************
  213. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  214.     IF szDir$ = "" THEN
  215.     MakePath = szFile$
  216.     ELSEIF szFile$ = "" THEN
  217.     MakePath = szDir$
  218.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  219.     MakePath = MakePath2(szDir$, szFile$)
  220.     ELSE
  221.     MakePath = szDir$ + "\" + szFile$
  222.     END IF
  223. END FUNCTION
  224.  
  225.  
  226. '**
  227. '** Purpose:
  228. '**     If ending "\" is a tailbyte of a DBCS character, append a "\" 
  229. '**     to the end of the file name.
  230. '** Arguments:
  231. '**     szDir$  - full directory path (with optional ending "\")
  232. '**     szFile$ - filename to append to directory
  233. '** Returns:
  234. '**     Resulting fully qualified path name.
  235. '*************************************************************************
  236. FUNCTION MakePath2 (szDir$, szFile$) STATIC AS STRING
  237.     IF IsDBCSChar(szDir$, LEN(szDir$)) = 2 THEN
  238.     MakePath2 = szDir$ + "\" + szFile$
  239.     ELSE
  240.     MakePath2 = szDir$ + szFile$
  241.     END IF
  242. END FUNCTION
  243.  
  244. rem **
  245. rem ** âfâBâXâvâîâCâhâëâCâoé╠âAâbâvâfü[âg
  246. rem *************************************************************************
  247. SUB UpdateDisp STATIC
  248.  
  249.  
  250.     disp1% = CheckVer(MakePath(WINSYSDIR$,"acl3u8.drv"))
  251.     disp7% = CheckVer(MakePath(WINSYSDIR$,"atls8.drv"))
  252.  
  253.  
  254.     IF (disp1% = OldVersion_d) THEN
  255.         GOTO FindOld
  256.     ELSEIF (disp7% = OldVersion_d) THEN
  257.         GOTO FindOld
  258.     ELSE
  259.         GOTO ENDUPDISP
  260.     END IF
  261.  
  262. FindOld:
  263.     sz$ = UIStartDlg(CUIDLL$, OLDDISPDRV, "FInfoDlgProc", DISPHELP, HELPPROC$)
  264.     IF sz$ = "CONTINUE" THEN
  265.     UIPop 1
  266.     ELSEIF sz$ = "REACTIVATE" THEN
  267.     GOTO FindOld
  268.     ELSE
  269.     UIPop 1
  270.     GOTO ENDUPDISP
  271.     END IF
  272.  
  273.     SetRestartDir WINSYSDIR$
  274.     DDD$ = MakePath(WINSYSDIR$,"olddisp")
  275.     CreateDir DDD$, cmoNone
  276.  
  277.     IF (disp1% = OldVersion_d) THEN
  278.         CopyFile MakePath(WINSYSDIR$,"acl3u8.drv"), MakePath(DDD$,"acl3u8.drv"),(cmoDecompress OR cmoOverwrite),0
  279.         CopyFile MakePath(WINSYSDIR$,"acl3v24.drv"), MakePath(DDD$,"acl3v24.drv"),(cmoDecompress OR cmoOverwrite),0
  280.         AddSectionFilesToCopyList "Acl3u8", SrcDir$, WINSYSDIR$
  281.     END IF
  282.     IF (disp7% = OldVersion_d) THEN
  283.         CopyFile MakePath(WINSYSDIR$,"atls8.drv"), MakePath(DDD$,"atls8.drv"),(cmoDecompress OR cmoOverwrite),0
  284.         CopyFile MakePath(WINSYSDIR$,"atls24.drv"), MakePath(DDD$,"atls24.drv"),(cmoDecompress OR cmoOverwrite),0
  285.         CopyFile MakePath(WINSYSDIR$,"sxciext.dll"), MakePath(DDD$,"sxciext.dll"),(cmoDecompress OR cmoOverwrite),0
  286.         AddSectionFilesToCopyList "Atls8", SrcDir$, WINSYSDIR$
  287.     END IF
  288.  
  289.     CopyFilesInCopyList
  290.  
  291.     RestartWin% = RestartListEmpty()
  292.  
  293. ENDUPDISP:
  294.  
  295. END SUB
  296. GLOBAL CheckVer1%
  297.  
  298. FUNCTION CheckVer(SrcPath1$) STATIC AS INTEGER 
  299.  
  300.     rem *** âtâ@âCâïé¬æ╢ì▌é╖éΘé⌐üH ****************
  301.     ex% = DoesFileExist(SrcPath1$ ,femExists)
  302.     IF( ex% ) THEN
  303.         rem ***********ô·òté≡â`âFâbâN**********
  304.  
  305.         FileDate$ = GetDateOfFile(SrcPath1$)
  306.  
  307.         FYear% = GetYearFromDate(FileDate$)
  308.         FMonth% = GetMonthFromDate(FileDate$)
  309.         FDay% = GetDayFromDate(FileDate$)
  310.  
  311.         IF (FYear% > 1995) THEN
  312.             CheckVer1% = NewVersion_d       ''96öNê╚ì~é╚éτÉVé╡éó
  313.         ELSEIF (FYear% < 1995) THEN
  314.             CheckVer1% = OldVersion_d       ''94öNê╚æOé╚éτî├éó
  315. rem *********** é▒é▒é⌐éτé═éXéTöNé╠éαé╠é╛é» **********************
  316.         ELSEIF (FMonth% > 2) THEN
  317.             CheckVer1% = NewVersion_d       ''2îÄéµéΦÉVé╡é»éΩé╬ÉVé╡éó
  318.         ELSEIF (FMonth% < 2) THEN
  319.             CheckVer1% = OldVersion_d       ''2îÄéµéΦî├é»éΩé╬î├éó
  320. rem *********** é▒é▒é⌐éτé═éXéTöNéQîÄé╠éαé╠é╛é» ******************
  321.         ELSEIF (FDay% > 3) THEN
  322.             CheckVer1% = NewVersion_d       ''éQîÄéRô·éµéΦÉVé╡é»éΩé╬ÉVé╡éó
  323.         ELSEIF (FDay% < 3) THEN
  324.             CheckVer1% = OldVersion_d       ''éQîÄéRô·éµéΦî├é»éΩé╬î├éó
  325. rem *********** é▒é▒é⌐éτé═éXéTöNéQîÄéRô·é╠éαé╠é╛é» ******************
  326.         ELSE
  327.             CheckVer1% = SameVersion_d
  328.         END IF
  329.     ELSE
  330.         CheckVer1% = FileNone_d
  331.     END IF
  332.  
  333.     CheckVer = CheckVer1%
  334.  
  335. END FUNCTION
  336.  
  337.